(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    113757,       2668]
NotebookOptionsPosition[    111546,       2586]
NotebookOutlinePosition[    111946,       2603]
CellTagsIndexPosition[    111903,       2600]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Functions given by data", "Title",
 CellChangeTimes->{{3.662663145907874*^9, 3.6626631891926327`*^9}, 
   3.6626642960125217`*^9, {3.662982331219604*^9, 3.662982334191774*^9}, {
   3.663327891195156*^9, 3.6633278930951586`*^9}, 3.665115444237214*^9, {
   3.68226594401085*^9, 3.6822659492858424`*^9}, {3.6822660489630237`*^9, 
   3.6822660494127645`*^9}, 3.6822661613653364`*^9}],

Cell[CellGroupData[{

Cell["A simple task", "Section",
 CellChangeTimes->{{3.662663145907874*^9, 3.6626631891926327`*^9}, 
   3.6626642960125217`*^9, {3.662982331219604*^9, 3.662982334191774*^9}, {
   3.663327891195156*^9, 3.6633278930951586`*^9}, 3.665115444237214*^9, {
   3.68226594401085*^9, 3.6822659492858424`*^9}, {3.6822660489630237`*^9, 
   3.6822660494127645`*^9}, {3.682266173876689*^9, 3.682266176885409*^9}}],

Cell[CellGroupData[{

Cell["Task in Excel", "Subsection",
 CellChangeTimes->{{3.6651417620224943`*^9, 3.6651417649454985`*^9}, {
  3.6822659530130873`*^9, 3.682265959116705*^9}}],

Cell[TextData[{
 "Prepare the points of the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{"-", "x"}]], "-", 
    SuperscriptBox["2", 
     RowBox[{
      RowBox[{"-", "2"}], "x"}]]}], TraditionalForm]]],
 "; (x,0,4,0.1)."
}], "Text",
 CellChangeTimes->{{3.6626635725786247`*^9, 3.6626638143548346`*^9}, {
   3.662664017910009*^9, 3.6626640368883452`*^9}, {3.6627201949342985`*^9, 
   3.6627202042978344`*^9}, {3.662720373868533*^9, 3.662720409515572*^9}, 
   3.662721291780035*^9, {3.6629852280234137`*^9, 3.662985291132023*^9}, {
   3.6650629341217585`*^9, 3.6650629345117593`*^9}, 3.665114374902639*^9, {
   3.6651147427007337`*^9, 3.665114743240734*^9}, {3.6822659715472436`*^9, 
   3.6822659923400974`*^9}, 3.682266149891478*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Import from Excel ", "Subsection",
 CellChangeTimes->{{3.6626635253224735`*^9, 3.6626635672900105`*^9}, 
   3.6627045013247895`*^9, {3.6627045828549037`*^9, 3.662704585074907*^9}, 
   3.665115438602174*^9, {3.6651418522386537`*^9, 3.6651418543586564`*^9}, {
   3.68226600333918*^9, 3.6822660108151116`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"adat", "=", 
   RowBox[{"ToExpression", "[", 
    RowBox[{
     RowBox[{
     "Import", "[", 
      "\"\<C:/Users/User/Google \
Drive/Teaching/MatModellek_2016/Gyak_4/fuggveny.xlsx\>\"", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6650629653380785`*^9, 3.6650629950431414`*^9}, {
  3.665063048929244*^9, 3.6650631154144135`*^9}, {3.6650633634759283`*^9, 
  3.665063378291953*^9}, {3.6650654448033285`*^9, 3.665065507809431*^9}, {
  3.6652904658844805`*^9, 3.6652904711337805`*^9}, {3.665290522839738*^9, 
  3.6652905477721643`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "adat", "]"}]], "Input",
 CellChangeTimes->{{3.665114781864798*^9, 3.6651147845008025`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], 
    AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQjQ5mzQSBnfYK8/ckb/q73h7CP2kvMc1zZ9rNPfYm
xiBw2d7lf/ASwdbDUPmb9gvk73+2rD1uDzHlgb3B+z8zK5tOQdU/ti/o1p25
ffcZ+/Q0EHhm/2r9jBeBXueg+l/a//pUUXzX67z92TMg8MZ+mY/c6jNXz0PN
+wClL0DVf7RnLg1Wd759Hmr+Z/tnwqybdpbB9H+x5w1+rGp7/xzUvm/2rmWr
GtbJn4Oa88N+Vvm/MzaOZ6Hm/bT32sZitcj7DNS83/bK61W/Rbiehpr3x95E
eebjE8anoOb9s++b+UYiX/ok1DwGBwh1AqqeweHUpoRTLU+OQc1ndOgyfX+z
5PRRqH4mh6R/95ef3nYEah+zw94vzIukVxyGmsficMa6Pm3egkNQ81gcPK/H
7nBaeBBqHqtDjG5n9Y5VB6DmsTnwV7T/+Fq1H2oeu4NW8OyqzZv3Qs3jgLpv
D9Q8DocPentSv8XvgprH6RDanXqr4fIOqHlcDuc1wo2SorZDzeN26Am8fcn2
y1aoeTwOZ8Hu2wI1j8cheip32++4zVDzeB2cI45U79PbBDWPz8EusN7RjX8j
1Dx+h2/ri1Zf/b8eap4A1H3r7AFrgxbZ
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 4.}, {0, 0.25}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6651147850808034`*^9, 3.6651417897425427`*^9, 
  3.6656797146352215`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"adat", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
       RowBox[{"Hue", "[", "y", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y"}], "}"}], "]"}]}], "}"}]}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "->", 
    RowBox[{"1", "/", "GoldenRatio"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.665679676075016*^9, 3.6656797413137474`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.], PointSize[0.02], PointBox[{0., 0.}]}, 
   {Hue[0.062482428240683285`], PointSize[0.02], 
    PointBox[{0.1, 0.062482428240683285`}]}, 
   {Hue[0.11269228004092502`], PointSize[0.02], 
    PointBox[{0.2, 0.11269228004092502`}]}, 
   {Hue[0.15249844096978837`], PointSize[0.02], 
    PointBox[{0.30000000000000004`, 0.15249844096978837`}]}, 
   {Hue[0.18350910575668156`], PointSize[0.02], 
    PointBox[{0.4, 0.18350910575668156`}]}, 
   {Hue[0.20710678118654746`], PointSize[0.02], 
    PointBox[{0.5, 0.20710678118654746`}]}, 
   {Hue[0.22447867373838504`], PointSize[0.02], 
    PointBox[{0.6000000000000001, 0.22447867373838504`}]}, 
   {Hue[0.2366430650448586], PointSize[0.02], 
    PointBox[{0.7000000000000001, 0.2366430650448586}]}, 
   {Hue[0.24447219980529394`], PointSize[0.02], 
    PointBox[{0.8, 0.24447219980529394`}]}, 
   {Hue[0.2487121425188878], PointSize[0.02], 
    PointBox[{0.9, 0.2487121425188878}]}, 
   {Hue[0.25], PointSize[0.02], PointBox[{1., 0.25}]}, 
   {Hue[0.24887885494437265`], PointSize[0.02], 
    PointBox[{1.1, 0.24887885494437265`}]}, 
   {Hue[0.24581071083426237`], PointSize[0.02], 
    PointBox[{1.2000000000000002`, 0.24581071083426237`}]}, 
   {Hue[0.24118770933150593`], PointSize[0.02], 
    PointBox[{1.3, 0.24118770933150593`}]}, 
   {Hue[0.23534184725297017`], PointSize[0.02], 
    PointBox[{1.4000000000000001`, 0.23534184725297017`}]}, 
   {Hue[0.2285533905932738], PointSize[0.02], 
    PointBox[{1.5, 0.2285533905932738}]}, 
   {Hue[0.2210581572812081], PointSize[0.02], 
    PointBox[{1.6, 0.2210581572812081}]}, 
   {Hue[0.21305381792932918`], PointSize[0.02], 
    PointBox[{1.7000000000000002`, 0.21305381792932918`}]}, 
   {Hue[0.2047053443259529], PointSize[0.02], 
    PointBox[{1.8, 0.2047053443259529}]}, 
   {Hue[0.1961497184467586], PointSize[0.02], 
    PointBox[{1.9000000000000001`, 0.1961497184467586}]}, 
   {Hue[0.1875], PointSize[0.02], PointBox[{2., 0.1875}]}, 
   {Hue[0.1788488376781941], PointSize[0.02], 
    PointBox[{2.1, 0.1788488376781941}]}, 
   {Hue[0.17027149812058112`], PointSize[0.02], 
    PointBox[{2.2, 0.17027149812058112`}]}, 
   {Hue[0.16182847687740592`], PointSize[0.02], 
    PointBox[{2.3000000000000003`, 0.16182847687740592`}]}, 
   {Hue[0.15356774722014235`], PointSize[0.02], 
    PointBox[{2.4000000000000004`, 0.15356774722014235`}]}, 
   {Hue[0.14552669529663687`], PointSize[0.02], 
    PointBox[{2.5, 0.14552669529663687`}]}, 
   {Hue[0.13773378374360792`], PointSize[0.02], 
    PointBox[{2.6, 0.13773378374360792`}]}, 
   {Hue[0.13020998031638953`], PointSize[0.02], 
    PointBox[{2.7, 0.13020998031638953`}]}, 
   {Hue[0.12296998326880292`], PointSize[0.02], 
    PointBox[{2.8000000000000003`, 0.12296998326880292`}]}, 
   {Hue[0.11602327102020796`], PointSize[0.02], 
    PointBox[{2.9000000000000004`, 0.11602327102020796`}]}, 
   {Hue[0.109375], PointSize[0.02], PointBox[{3., 0.109375}]}, 
   {Hue[0.10302677139059901`], PointSize[0.02], 
    PointBox[{3.1, 0.10302677139059901`}]}, 
   {Hue[0.09697728473615304], PointSize[0.02], 
    PointBox[{3.2, 0.09697728473615304}]}, 
   {Hue[0.09122289399161619], PointSize[0.02], 
    PointBox[{3.3000000000000003`, 0.09122289399161619}]}, 
   {Hue[0.08575807950848552], PointSize[0.02], 
    PointBox[{3.4000000000000004`, 0.08575807950848552}]}, 
   {Hue[0.08057584764831845], PointSize[0.02], 
    PointBox[{3.5, 0.08057584764831845}]}, 
   {Hue[0.07566806814755493], PointSize[0.02], 
    PointBox[{3.6, 0.07566806814755493}]}, 
   {Hue[0.07102575799612602], PointSize[0.02], 
    PointBox[{3.7, 0.07102575799612602}]}, 
   {Hue[0.06663931941085807], PointSize[0.02], 
    PointBox[{3.8000000000000003`, 0.06663931941085807}]}, 
   {Hue[0.06249873845931113], PointSize[0.02], 
    PointBox[{3.9000000000000004`, 0.06249873845931113}]}, 
   {Hue[0.05859375], PointSize[0.02], PointBox[{4., 0.05859375}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True]], "Output",
 CellChangeTimes->{{3.6656797007764287`*^9, 3.665679741732771*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Interpolation", "Subsection",
 CellChangeTimes->{
  3.665114749216744*^9, {3.6651153938018675`*^9, 3.6651154254020877`*^9}, {
   3.6822660269728327`*^9, 3.682266034987909*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Interpolation", "[", "adat", "]"}], "[", "x", "]"}]}]], "Input",
 CellChangeTimes->{{3.6651144100616937`*^9, 3.665114430791727*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", "adat", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.665114706235677*^9, 3.665114712755686*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwV13c8V98fB/BPZKtPpUR8i9Ig0bBaXpdKpWWFShKlUlaDaJolQtISRVKR
[encoded data, 5940 characters]
JTQaA/8DqBWMjg==
      "]]}}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQjQ5mzQSBnfYK8/ckb/q73h7CP2kvMc1zZ9rNPfYm
xiBw2d7lf/ASwdbDUPmb9gvk73+2rD1uDzHlgb3B+z8zK5tOQdU/ti/o1p25
ffcZ+/Q0EHhm/2r9jBeBXueg+l/a//pUUXzX67z92TMg8MZ+mY/c6jNXz0PN
+wClL0DVf7RnLg1Wd759Hmr+Z/tnwqybdpbB9H+x5w1+rGp7/xzUvm/2rmWr
GtbJn4Oa88N+Vvm/MzaOZ6Hm/bT32sZitcj7DNS83/bK61W/Rbiehpr3x95E
eebjE8anoOb9s++b+UYiX/ok1DwGBwh1AqqeweHUpoRTLU+OQc1ndOgyfX+z
5PRRqH4mh6R/95ef3nYEah+zw94vzIukVxyGmsficMa6Pm3egkNQ81gcPK/H
7nBaeBBqHqtDjG5n9Y5VB6DmsTnwV7T/+Fq1H2oeu4NW8OyqzZv3Qs3jgLpv
D9Q8DocPentSv8XvgprH6RDanXqr4fIOqHlcDuc1wo2SorZDzeN26Am8fcn2
y1aoeTwOZ8Hu2wI1j8cheip32++4zVDzeB2cI45U79PbBDWPz8EusN7RjX8j
1Dx+h2/ri1Zf/b8eap4A1H3r7AFrgxbZ
      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 4}, {0., 0.25000000808131034`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.665114714285688*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Investigate the changes, estimate the derivative", "Subsection",
 CellChangeTimes->{{3.6626635725786247`*^9, 3.6626638143548346`*^9}, {
   3.662664017910009*^9, 3.6626640443791437`*^9}, {3.6627203110369396`*^9, 
   3.66272031873438*^9}, {3.6627215537500186`*^9, 3.6627215868879137`*^9}, 
   3.6629810490632687`*^9, 3.6651154562397933`*^9, {3.665141840224635*^9, 
   3.665141841045636*^9}, {3.6822660701754875`*^9, 3.6822660887882195`*^9}}],

Cell["\<\
Compute the data series of the derivative using the forward differences\
\>", "Text",
 CellChangeTimes->{{3.6626635725786247`*^9, 3.6626638143548346`*^9}, {
   3.662664017910009*^9, 3.6626640443791437`*^9}, {3.6627203110369396`*^9, 
   3.66272031873438*^9}, {3.6627215537500186`*^9, 3.6627215868879137`*^9}, 
   3.6629810490632687`*^9, {3.6822660954799767`*^9, 3.682266126798175*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dx", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"der", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"adat", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"adat", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}], "-", 
          RowBox[{"adat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ")"}], "/", "dx"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Length", "[", "adat", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.6627205383729424`*^9, 3.662720671293545*^9}, {
  3.6627215985635815`*^9, 3.662721657579957*^9}, {3.6627217090539017`*^9, 
  3.662721799255061*^9}, {3.6650655724135466`*^9, 3.665065573603548*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"{", 
    RowBox[{"adat", ",", "der"}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6627216666184745`*^9, 3.6627216734218636`*^9}, {
  3.6650655859805665`*^9, 3.665065590516574*^9}, {3.665113935037366*^9, 
  3.665114035039526*^9}, {3.665114401234679*^9, 3.6651144020286818`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.016666666666666666`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQjQ5mzQSBnfYK8/ckb/q73h7CP2kvMc1zZ9rNPfYm
xiBw2d7lf/ASwdbDUPmb9gvk73+2rD1uDzHlgb3B+z8zK5tOQdU/ti/o1p25
ffcZ+/Q0EHhm/2r9jBeBXueg+l/a//pUUXzX67z92TMg8MZ+mY/c6jNXz0PN
+wClL0DVf7RnLg1Wd759Hmr+Z/tnwqybdpbB9H+x5w1+rGp7/xzUvm/2rmWr
GtbJn4Oa88N+Vvm/MzaOZ6Hm/bT32sZitcj7DNS83/bK61W/Rbiehpr3x95E
eebjE8anoOb9s++b+UYiX/ok1DwGBwh1AqqeweHUpoRTLU+OQc1ndOgyfX+z
5PRRqH4mh6R/95ef3nYEah+zw94vzIukVxyGmsficMa6Pm3egkNQ81gcPK/H
7nBaeBBqHqtDjG5n9Y5VB6DmsTnwV7T/+Fq1H2oeu4NW8OyqzZv3Qs3jgLpv
D9Q8DocPentSv8XvgprH6RDanXqr4fIOqHlcDuc1wo2SorZDzeN26Am8fcn2
y1aoeTwOZ8Hu2wI1j8cheip32++4zVDzeB2cI45U79PbBDWPz8EusN7RjX8j
1Dx+h2/ri1Zf/b8eap4A1H3r7AFrgxbZ
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.016666666666666666`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQMlj0Pr+v89tp81EwR22mtJuL00EHwA5Z+0l2DN
SbteedPexBgELtufWbi99+SNy1D5m/YLpLVqa0zO2UNMe2DfIPXse7bNMaj6
x/YdN+NM+FT226engcAzewfb1pvPuLZA9b+0f8B0bWPC1qX2Z8+AwBt7BwkB
XtGELqh5H+wV7l3LZv/Wth+i/qO9QGTdii9Z8/dDzP9s/0LR7Wnp6uX7Ifq/
2DvUP7rg+W7tfoh93+xjnuZzPkrYuB9i3g97B6nmamGDzVDzftrz9Of47qzd
AjXvt/2ad7+KHOO3Qs37Y//jQNVV5udboeb9s5f4X/1prco2qHkMDhYcRQYL
VLdB1TM4MJy8e8Lu61ao+YwOCv4GL83nwvQzOTw5YFB6QHUr1D5mhytFcctO
TN0CNY/FwebW7FmanzdDzWNxaHGbe+CME8y9rA6zbuV8PNuxCWoem8OnAsvX
M05shJrH7rDEXvAUEyvMvxwOC7SWsSU4bICax+Egc+LII72f66DmcTpUbJJX
TC2DhReXg83FNaXXf62Gmsft8GaTYXlJxyqoeTwOLxg4O3cqrISax+Pw4OiE
s0eOLIeax+uQ0pPSm1K6DGoen4NNZXm2ivFSqHn8DnPuV22K+Ld4PwAzWClp

      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 4.}, {-0.08651162321805905, 0.6248242824068329}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6627216744509225`*^9, 3.662721803932328*^9, 3.665065549903499*^9, {
   3.665065580539559*^9, 3.6650655909965744`*^9}, 3.6651139274473543`*^9, {
   3.665113970725421*^9, 3.665114035403528*^9}, 3.6651144028916836`*^9, 
   3.665114644572139*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f", "[", "x", "]"}], ",", 
       RowBox[{
        RowBox[{"f", "'"}], "[", "x", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"{", 
     RowBox[{"adat", ",", "der"}], "}"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6651144389077387`*^9, 3.6651144752037992`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwV13c8V98fB/BPZKtPpUR8i9Ig0bBaXpdKpWWFShKlUlaDaJolQtISRVKR
[encoded data, 5940 characters]
JTQaA/8DqBWMjg==
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwV13k8VF8bAPA7CCUmtCkpu0jIUqmcU0qEhDZlj2gTKoVIpB8RFRUl0Viy
[encoded data, 7020 characters]
eL3YDJ+P77eoEb3oSUP/A7VMKkw=
      "]]}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.016666666666666666`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQjQ5mzQSBnfYK8/ckb/q73h7CP2kvMc1zZ9rNPfYm
xiBw2d7lf/ASwdbDUPmb9gvk73+2rD1uDzHlgb3B+z8zK5tOQdU/ti/o1p25
ffcZ+/Q0EHhm/2r9jBeBXueg+l/a//pUUXzX67z92TMg8MZ+mY/c6jNXz0PN
+wClL0DVf7RnLg1Wd759Hmr+Z/tnwqybdpbB9H+x5w1+rGp7/xzUvm/2rmWr
GtbJn4Oa88N+Vvm/MzaOZ6Hm/bT32sZitcj7DNS83/bK61W/Rbiehpr3x95E
eebjE8anoOb9s++b+UYiX/ok1DwGBwh1AqqeweHUpoRTLU+OQc1ndOgyfX+z
5PRRqH4mh6R/95ef3nYEah+zw94vzIukVxyGmsficMa6Pm3egkNQ81gcPK/H
7nBaeBBqHqtDjG5n9Y5VB6DmsTnwV7T/+Fq1H2oeu4NW8OyqzZv3Qs3jgLpv
D9Q8DocPentSv8XvgprH6RDanXqr4fIOqHlcDuc1wo2SorZDzeN26Am8fcn2
y1aoeTwOZ8Hu2wI1j8cheip32++4zVDzeB2cI45U79PbBDWPz8EusN7RjX8j
1Dx+h2/ri1Zf/b8eap4A1H3r7AFrgxbZ
       "]]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.016666666666666666`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQMlj0Pr+v89tp81EwR22mtJuL00EHwA5Z+0l2DN
SbteedPexBgELtufWbi99+SNy1D5m/YLpLVqa0zO2UNMe2DfIPXse7bNMaj6
x/YdN+NM+FT226engcAzewfb1pvPuLZA9b+0f8B0bWPC1qX2Z8+AwBt7BwkB
XtGELqh5H+wV7l3LZv/Wth+i/qO9QGTdii9Z8/dDzP9s/0LR7Wnp6uX7Ifq/
2DvUP7rg+W7tfoh93+xjnuZzPkrYuB9i3g97B6nmamGDzVDzftrz9Of47qzd
AjXvt/2ad7+KHOO3Qs37Y//jQNVV5udboeb9s5f4X/1prco2qHkMDhYcRQYL
VLdB1TM4MJy8e8Lu61ao+YwOCv4GL83nwvQzOTw5YFB6QHUr1D5mhytFcctO
TN0CNY/FwebW7FmanzdDzWNxaHGbe+CME8y9rA6zbuV8PNuxCWoem8OnAsvX
M05shJrH7rDEXvAUEyvMvxwOC7SWsSU4bICax+Egc+LII72f66DmcTpUbJJX
TC2DhReXg83FNaXXf62Gmsft8GaTYXlJxyqoeTwOLxg4O3cqrISax+Pw4OiE
s0eOLIeax+uQ0pPSm1K6DGoen4NNZXm2ivFSqHn8DnPuV22K+Ld4PwAzWClp

       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 4}, {-0.08665864895372578, 0.6924166677320845}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.665114459136772*^9, 3.6651144759568005`*^9}, 
   3.665114646582142*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["An epidemic process", "Section",
 CellChangeTimes->{{3.6629809392159863`*^9, 3.6629809462983913`*^9}, {
   3.662981099371146*^9, 3.6629811341561356`*^9}, 3.662984519339879*^9, {
   3.6651156174459243`*^9, 3.6651156467411213`*^9}, {3.6651157988244805`*^9, 
   3.665115803208493*^9}, {3.665142538744664*^9, 3.6651425472586865`*^9}, {
   3.665143973268457*^9, 3.665143973424466*^9}, {3.6822661952589245`*^9, 
   3.682266207253892*^9}}],

Cell["\<\
The number of new infected people is daily registered. Plot the number of \
helthy people if the total population is 3000 \
\>", "Text",
 CellChangeTimes->{{3.662981189577306*^9, 3.662981268474818*^9}, {
   3.6629816150856433`*^9, 3.6629816650545015`*^9}, {3.6629819392281833`*^9, 
   3.6629819608254185`*^9}, {3.662982050786564*^9, 3.6629821290670414`*^9}, {
   3.6650658434870157`*^9, 3.6650658521245375`*^9}, {3.665065888597257*^9, 
   3.6650659160023117`*^9}, 3.665116533226524*^9, {3.682266213895542*^9, 
   3.6822662830594993`*^9}}],

Cell["Create the data set artificially", "Text",
 CellChangeTimes->{{3.6822663110839367`*^9, 3.6822663298169513`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"adat", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Floor", "[", 
      RowBox[{"20", 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x", "-", "50"}], ")"}], "^", "2"}]}], "/", "1000"}], 
         ")"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "100", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.665142000891898*^9, 3.665142066953038*^9}, {
   3.6651421139753785`*^9, 3.665142122804883*^9}, 3.6651425772167673`*^9}],

Cell[CellGroupData[{

Cell["Plot the data", "Subsection",
 CellChangeTimes->{{3.6651425842627974`*^9, 3.665142593643814*^9}, {
  3.682266335464309*^9, 3.682266337615949*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "adat", "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
    AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1LlKREEQheHCyNDAwMBABxEREfddp933bdxTwdhXqEe7j+QjqHgOUv/A
cPioWW5Xd9fk++fgYygiPn7ev/n3+urXjFY9DI+0+rlReAwehyda/d0ePAVP
t/q/M/AsPIfnmocX4EU89xK8jHWswKtKr2sNXlf2lBvwptLr3oK3le7DDryr
dF/24L7SfWrVabtv+9Vpu48H1Wm7r4fVabvPR9Vpu+/H1QnHiVL7knCcog7H
GepwnKNue98vUIfjEnU4rlCH4xp12+u/qU44bpXuLxx3Su1Pg9PW/nZw3Ct1
Phqcts5XB8dAqfPZ4LR1vjs4HpS6Hw1Ou6fvw/Go1P1scNq63x0cT0rNhwan
rfnSwfFc3WzNr4Q7OF6Umo8NTrizPX9fqxuccGd7/r9Vt39/Aw2dd8Q=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0., 101.}, {0, 20.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.665065660031332*^9, 3.6651421614430933`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BarChart", "[", "adat", "]"}]], "Input",
 CellChangeTimes->{{3.665142000891898*^9, 3.665142066953038*^9}, {
   3.6651421139753785`*^9, 3.665142122804883*^9}, 3.6651425772167673`*^9}],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], PointBox[{-1.52, 0.}]}, {{}, 
    {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{0.5, 0.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{1.5, 0.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{2.5, 0.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{3.5, 0.}, {4.5, 2.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{4.5, 0.}, {5.5, 2.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{5.5, 0.}, {6.5, 2.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{6.5, 0.}, {7.5, 2.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{7.5, 0.}, {8.5, 3.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{8.5, 0.}, {9.5, 3.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{9.5, 0.}, {10.5, 3.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{10.5, 0.}, {11.5, 4.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{11.5, 0.}, {12.5, 4.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{12.5, 0.}, {13.5, 4.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{13.5, 0.}, {14.5, 5.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{14.5, 0.}, {15.5, 5.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{15.5, 0.}, {16.5, 5.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{16.5, 0.}, {17.5, 6.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{17.5, 0.}, {18.5, 6.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{18.5, 0.}, {19.5, 7.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{19.5, 0.}, {20.5, 7.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{20.5, 0.}, {21.5, 8.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{21.5, 0.}, {22.5, 8.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{22.5, 0.}, {23.5, 9.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{23.5, 0.}, {24.5, 9.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{24.5, 0.}, {25.5, 10.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{25.5, 0.}, {26.5, 10.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{26.5, 0.}, {27.5, 11.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{27.5, 0.}, {28.5, 11.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{28.5, 0.}, {29.5, 12.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{29.5, 0.}, {30.5, 12.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{30.5, 0.}, {31.5, 13.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{31.5, 0.}, {32.5, 13.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{32.5, 0.}, {33.5, 14.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{33.5, 0.}, {34.5, 14.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{34.5, 0.}, {35.5, 15.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{35.5, 0.}, {36.5, 15.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{36.5, 0.}, {37.5, 16.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{37.5, 0.}, {38.5, 16.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{38.5, 0.}, {39.5, 17.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{39.5, 0.}, {40.5, 17.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{40.5, 0.}, {41.5, 18.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{41.5, 0.}, {42.5, 18.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{42.5, 0.}, {43.5, 18.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{43.5, 0.}, {44.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{44.5, 0.}, {45.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{45.5, 0.}, {46.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{46.5, 0.}, {47.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{47.5, 0.}, {48.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{48.5, 0.}, {49.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{49.5, 0.}, {50.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{50.5, 0.}, {51.5, 20.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{51.5, 0.}, {52.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{52.5, 0.}, {53.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{53.5, 0.}, {54.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{54.5, 0.}, {55.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{55.5, 0.}, {56.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{56.5, 0.}, {57.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{57.5, 0.}, {58.5, 19.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{58.5, 0.}, {59.5, 18.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{59.5, 0.}, {60.5, 18.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{60.5, 0.}, {61.5, 18.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{61.5, 0.}, {62.5, 17.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{62.5, 0.}, {63.5, 17.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{63.5, 0.}, {64.5, 16.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{64.5, 0.}, {65.5, 16.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{65.5, 0.}, {66.5, 15.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{66.5, 0.}, {67.5, 15.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{67.5, 0.}, {68.5, 14.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{68.5, 0.}, {69.5, 14.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{69.5, 0.}, {70.5, 13.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{70.5, 0.}, {71.5, 13.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{71.5, 0.}, {72.5, 12.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{72.5, 0.}, {73.5, 12.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{73.5, 0.}, {74.5, 11.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{74.5, 0.}, {75.5, 11.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{75.5, 0.}, {76.5, 10.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{76.5, 0.}, {77.5, 10.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{77.5, 0.}, {78.5, 9.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{78.5, 0.}, {79.5, 9.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{79.5, 0.}, {80.5, 8.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{80.5, 0.}, {81.5, 8.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{81.5, 0.}, {82.5, 7.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{82.5, 0.}, {83.5, 7.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{83.5, 0.}, {84.5, 6.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{84.5, 0.}, {85.5, 6.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{85.5, 0.}, {86.5, 5.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{86.5, 0.}, {87.5, 5.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{87.5, 0.}, {88.5, 5.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{88.5, 0.}, {89.5, 4.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{89.5, 0.}, {90.5, 4.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{90.5, 0.}, {91.5, 4.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{91.5, 0.}, {92.5, 3.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{92.5, 0.}, {93.5, 3.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{93.5, 0.}, {94.5, 3.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{94.5, 0.}, {95.5, 2.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{95.5, 0.}, {96.5, 2.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{96.5, 0.}, {97.5, 2.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{97.5, 0.}, {98.5, 2.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{98.5, 0.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{99.5, 0.},
       RoundingRadius->0]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[Opacity[0.]], 
      RectangleBox[{100.5, 0.},
       RoundingRadius->0]}}, {}, {}}, {}, {}, 
   StyleBox[{
     {Thickness[Tiny], LineBox[{{-1.52, 0.}, {103.5604, 0.}}], 
      StyleBox[{}, "GraphicsLabel",
       StripOnInput->False]}, 
     StyleBox[{
       {Thickness[Tiny], 
        LineBox[{{0.5, 0.}, 
          Offset[{-1.102182119232618*^-15, -6.}, {0.5, 0.}]}], 
        LineBox[{{101.5, 0.}, 
          Offset[{-1.102182119232618*^-15, -6.}, {101.5, 
           0.}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, 
       StyleBox[{}, "GraphicsLabel",
        StripOnInput->False]}, "GraphicsTicks",
      StripOnInput->False]}, "GraphicsAxes",
    StripOnInput->False,
    Antialiasing->False]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, True},
  AxesLabel->{None, None},
  AxesOrigin->{-1.52, 0.},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Identity[
       Part[#, 1]], 
      Identity[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Identity[
       Part[#, 1]], 
      Identity[
       Part[#, 2]]}& )},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {{{1., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {2., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {3., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {4., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {5., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {6., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {7., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {8., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {9., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {10., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {11., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {12., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {13., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {14., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {15., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {16., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {17., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {18., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {19., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {20., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {21., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {22., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {23., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {24., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {25., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {26., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {27., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {28., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {29., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {30., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {31., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {32., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {33., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {34., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {35., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {36., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {37., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {38., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {39., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {40., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {41., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {42., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {43., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {44., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {45., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {46., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {47., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {48., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {49., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {50., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {51., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {52., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {53., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {54., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {55., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {56., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {57., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {58., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {59., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {60., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {61., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {62., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {63., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {64., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {65., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {66., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {67., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {68., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {69., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {70., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {71., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {72., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {73., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {74., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {75., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {76., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {77., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {78., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {79., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {80., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {81., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {82., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {83., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {84., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {85., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {86., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {87., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {88., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {89., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {90., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {91., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {92., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {93., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {94., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {95., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {96., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {97., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {98., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {99., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {100., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {101., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}}, {{1., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {2., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {3., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {4., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {5., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {6., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {7., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {8., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {9., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {10., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {11., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {12., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {13., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {14., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {15., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {16., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {17., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {18., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {19., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {20., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {21., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {22., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {23., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {24., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {25., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {26., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {27., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {28., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {29., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {30., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {31., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {32., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {33., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {34., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {35., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {36., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {37., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {38., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {39., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {40., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {41., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {42., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {43., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {44., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {45., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {46., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {47., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {48., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {49., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {50., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {51., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {52., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {53., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {54., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {55., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {56., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {57., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {58., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {59., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {60., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {61., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {62., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {63., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {64., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {65., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {66., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {67., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {68., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {69., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {70., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {71., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {72., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {73., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {74., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {75., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {76., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {77., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {78., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {79., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {80., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {81., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {82., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {83., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {84., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {85., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {86., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {87., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {88., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {89., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {90., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {91., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {92., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {93., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {94., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {95., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {96., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {97., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {98., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {99., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {100., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}, {101., 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm], {0.004, 0}}}}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{All, All}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{{3.665142011678944*^9, 3.665142067563039*^9}, {
  3.6651421147664237`*^9, 3.665142123528925*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Healthy = Population - all infected", "Subsection",
 CellChangeTimes->{{3.665142182648306*^9, 3.665142198123191*^9}, {
  3.682266368187084*^9, 3.6822663929366345`*^9}}],

Cell["\<\
Daily new infected : speed of the change, i.e., derivative
Total infected : Accumulate the daily infected, i.e., Integrate!\
\>", "Text",
 CellChangeTimes->{{3.682266407464757*^9, 3.682266503596871*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Accumulate", "[", "adat", "]"}], ",", 
     RowBox[{"3000", "-", 
      RowBox[{"Accumulate", "[", "adat", "]"}]}]}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "3000"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6629848506598296`*^9, 3.6629848638765855`*^9}, {
  3.6650658567545443`*^9, 3.665065857909548*^9}, {3.6650659014597807`*^9, 
  3.665065932447343*^9}, {3.6651422081677656`*^9, 3.665142218071332*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1LluE1EABdARlcsUKVKkMChCFoqQgQAGAnmEzewmbAYJAVEsLITA7EZs
w252f4JLypQp5zNS+hNcpgQ05xXjSNHV8Z2bseOZ2bz8YKm1KUmS1r/f/5n/
jBaKmYRilsZyQk6O5bScklvGXt8qy3J27LgdckbOje1qsiLn5TYZin83XeTt
8pis6k8Uz5ue4p18lndxo/i+whLv5ku8h6/wXvtm8XNk13mf42/wfv1NPqC/
zT73YJkP5lle4UP6Fi/Y32H/p2Hb++LBXf3hPG/d03O4r1/Mc6Kjj36oP8KP
9Fx+rD+aZ/WJnhtP9b6nzjM995/rj+eZdfU8eqH3vZZf6rnxSl/3+mvJq2/0
J/McvtVzP9W7Tirv9JxxcjrP5ns9jzg5k2fvg57LH/WuuzWO12H9k/5cnuuc
cvuz/rzzccrdL3rX8QYH7vYczyPOuP3V/oLzc+D6N3te5Yynvtu7b7oc76N1
Trn6w557nFx0PAeu/LTnDme8xon7dIPjfVv7Zc8dzvgPJ5ednwOXfttzlTNu
cuK5kHJ8TgzinrO452HcX/X+455LfXue5IynOfEcmuHAs3HPc3HPtbi/lud8
3HPoh7+cq7sg
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.01388888888888889], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1zj9IlAEch/EXh2hokBBpkLCIIyLEzMrsj5eVXWVXXVYm0iAZEWEgTg1x
U5M0NDqYmZWIo2PEDYdTNEY0OEQ0RIOzNPTn+zwHx8PnvvfjffdMPK5NthRF
Mfn3+6/5bA78z9S7Mj+kj/T29KFuTe/rtnRC70rv6o50THemI3pvWtX70oou
pWW9P+3TB9JufTAt6a60Q3enO/WhdJvuSbfe4sPpL92bbugj6Sd9NP2gj6Wr
ui+d08fTZ7o/ndYn0nF9Mh3Sp9IufTpt1wPp7ze4nH7DdbzufiZdccez7oPp
lDuuup/lfdzxDvdz6c8ldryOi/Ppojt+6j6UjrrjHvcLPM8d/3jNXkkbuI7n
3C+mM+542P1SWnLHhfvl9OsiO17DxXD63B0/cL+SDrrj3e7VdOsVO/6Mi6s8
zx2/cL+WTuMyrvl/3IsbuN376zx/gXu8geu4iRt4BRc13sd7/MR7fM97XPX+
RtrvPS55j9u8xy3ej6TfX3KPm7iOl3EDz+LiZjrjPR73Hle8x73e30o7vcet
3uPCe7w5z++3eX9cxl9wHX/EDdz0fjR97z1e8x6veo+Xvb+TLnmPF+bLfwBg
mtaY
      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0., 101.}, {0, 3000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6629848647366343`*^9, 3.665065688361374*^9, 3.6650658585995483`*^9, {
   3.665065908067297*^9, 3.6650659374823503`*^9}, 3.665142173555786*^9, 
   3.6651422185423594`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1218, 677},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.7 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 385, 5, 172, "Title"],
Cell[CellGroupData[{
Cell[990, 31, 399, 5, 119, "Section"],
Cell[CellGroupData[{
Cell[1414, 40, 156, 2, 81, "Subsection"],
Cell[1573, 44, 775, 18, 53, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[2385, 67, 313, 4, 64, "Subsection"],
Cell[2701, 73, 621, 14, 184, "Input"],
Cell[CellGroupData[{
Cell[3347, 91, 132, 2, 51, "Input"],
Cell[3482, 95, 1542, 37, 405, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5061, 137, 620, 17, 85, "Input"],
Cell[5684, 156, 4064, 81, 401, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[9797, 243, 182, 3, 64, "Subsection"],
Cell[9982, 248, 219, 5, 51, "Input"],
Cell[CellGroupData[{
Cell[10226, 257, 336, 9, 51, "Input"],
Cell[10565, 268, 7828, 140, 394, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[18442, 414, 445, 5, 64, "Subsection"],
Cell[18890, 421, 394, 6, 50, "Text"],
Cell[19287, 429, 1039, 30, 118, "Input"],
Cell[CellGroupData[{
Cell[20351, 463, 364, 7, 51, "Input"],
Cell[20718, 472, 2574, 55, 388, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23329, 532, 505, 15, 51, "Input"],
Cell[23837, 549, 16081, 278, 395, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39979, 834, 438, 6, 119, "Section"],
Cell[40420, 842, 548, 9, 83, "Text"],
Cell[40971, 853, 118, 1, 50, "Text"],
Cell[41092, 856, 632, 19, 51, "Input"],
Cell[CellGroupData[{
Cell[41749, 879, 152, 2, 81, "Subsection"],
Cell[CellGroupData[{
Cell[41926, 885, 64, 1, 51, "Input"],
Cell[41993, 888, 1293, 32, 414, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43323, 925, 206, 3, 51, "Input"],
Cell[43532, 930, 64577, 1566, 401, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[108158, 2502, 174, 2, 64, "Subsection"],
Cell[108335, 2506, 213, 4, 83, "Text"],
Cell[CellGroupData[{
Cell[108573, 2514, 561, 13, 51, "Input"],
Cell[109137, 2529, 2357, 51, 418, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

